800
|
How can I change the color for a particular bar
![](images/exg2anttq800.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.Chart.FirstVisibleDate = #1/1/2001#
.Columns.Add "Column"
With .Items
.AddBar .AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#,"B1"
h = .AddItem("Item 2")
.AddBar h,"Task",#1/4/2001#,#1/6/2001#,"B2"
.ItemBar(h,"B2",33) = 255
.AddBar .AddItem("Item 3"),"Task",#1/6/2001#,#1/14/2001#,"B3"
End With
End With
End Function
</SCRIPT>
</BODY>
|
799
|
How can I change the color or visual appearance using EBN files for a particular bar
![](images/exg2anttq799.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.VisualAppearance.Add 1,"gBFLBCJwBAEHhEJAEGg4BGoCg6AADACAxRDAMgBQKAAzQFAYZhhBaERiGEaIJhUAIIRZGMQxXAcMQvDSKQJhGLhQiSJoJDSBEgSXDIZQ5D6OZYACDJQACJYJTbAYzyP" & _
"JkPRAA6EZCmGAwCglf5HABRb7xNLkbQ8GySKJnWCQJhoD5BSLCNRUTRFFQtGgZBpEWwLCjQNQwWLKFoTJIEPSBDKqYDoKYqTgOOZOThHQz3HakQRdAa/ZpnaKpUo2d47" & _
"XjMWBwGA0EzeAAGaxoShqdoiFaGU7UOJVJBOGwHK6BchoMAKbp6XoVWRaOAWLZWVABM7XLZxbLccyGfZ1XhdV5UbqUMznR7PNrjLKIJpCOJbbyAFwgBaeQABYLhK7iHR" & _
"mi8XYwjMWpjFWOx1GIB5LmgdB4HCEBECSIBpDGHQOicIwokYPImikEIJj6eJIloEgogSc40FGcJEFiYZIG2VIoAURw1g2QxyAQNwNAMPJOgIYI4CoDIBmAeAKBIUpQDU" & _
"KJYDoTpIB4vxgmgdgNgeYZDDoFw7CEJhQn+BohmKfImCWSZRlgYwikYMQ0gwF4DniTA/gwBJYjQYwsgoIg6AyCRQDiIJODAZBImoOguAmMZ4lQLIJjOMI3CYZJpEIT4K" & _
"iKSI6DqD5ZGAAgHC2DAjBYR4SGUGYGE+GIlCmFhRhIB5iFAbwWsiJgMhoCoxngV4ZCcSYOHaGYnHmIg8COJpoCoOISmSWZeHWHgoEkRoAg4EIYB4NogmiSgKg6GRjGoJ" & _
"gFh+ZJKDaBYjmgaQygiBRUHmbhoDsTAyiqIIoioGoOw8aoKhKKoemeOIaAeF5HmqHoqiyKxKgYaN/locgBiuZRojoVIok8cwsjaMBLGqDoAhGIpoEYWYEmAIxUkQLZmg" & _
"iYg2g2I4JiCQwuAqWIOIkEAQICA=="
With .Chart
.FirstVisibleDate = #1/1/2001#
With .Bars.Item("Task")
.Color = &H1000000
.Height = 16
End With
End With
.Columns.Add "Column"
With .Items
.AddBar .AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#,"B1"
h = .AddItem("Item 2")
.AddBar h,"Task",#1/4/2001#,#1/6/2001#,"B2"
.ItemBar(h,"B2",33) = 255
.AddBar .AddItem("Item 3"),"Task",#1/6/2001#,#1/14/2001#,"B3"
End With
End With
End Function
</SCRIPT>
</BODY>
|
798
|
How can I resize programmatically a bar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.Chart.FirstVisibleDate = #1/1/2001#
.Columns.Add "Column"
With .Items
h = .AddItem("Item 1")
.AddBar h,"Task",#1/4/2001#,#1/6/2001#,"B2"
.ItemBar(h,"B2",513) = 1
End With
End With
End Function
</SCRIPT>
</BODY>
|
797
|
How can I move programmatically a bar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.Chart.FirstVisibleDate = #1/1/2001#
.Columns.Add "Column"
With .Items
h = .AddItem("Item 1")
.AddBar h,"Task",#1/4/2001#,#1/6/2001#,"B2"
.ItemBar(h,"B2",514) = -2
End With
End With
End Function
</SCRIPT>
</BODY>
|
796
|
How can I select displaying the histogram for an item and all its child items
![](images/exg2anttq796.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.MarkSearchColumn = False
.ShowFocusRect = False
.Columns.Add "Tasks"
With .Columns.Add("Hist")
.Def(0) = True
.PartialCheck = True
.AllowSizing = False
.Width = 18
End With
With .Chart
.LevelCount = 2
.NonworkingDays = 0
.PaneWidth(0) = 96
.FirstVisibleDate = #6/20/2005#
.HistogramVisible = True
.HistogramView = 67348 ' &H10000 Or HistogramViewEnum.exHistogramNoGrouping Or HistogramViewEnum.exHistogramRecLeafItems Or HistogramViewEnum.exHistogramLeafItems Or HistogramViewEnum.exHistogramUnlockedItems Or HistogramViewEnum.exHistogramCheckedItems
.HistogramHeight = 64
With .Bars.Item("Task")
.HistogramCriticalColor = RGB(255,0,0)
.HistogramPattern = 512
.HistogramType = 1
End With
End With
With .Items
h = .AddItem("Project 1")
.AddBar h,"Summary",#6/21/2005#,#7/1/2005#
h1 = .InsertItem(h,,"Task 1")
.AddBar h1,"Task",#6/21/2005#,#6/28/2005#
.CellMerge(h1,0) = 1
.DefineSummaryBars h,"",h1,""
h1 = .InsertItem(h,,"Task 2")
.AddBar h1,"Task",#6/23/2005#,#7/1/2005#,"E"
.CellMerge(h1,0) = 1
.DefineSummaryBars h,"",h1,"E"
.ItemBar(h1,"E",21) = 5
h1 = .InsertItem(h,,"Task 3")
.AddBar h1,"Task",#6/25/2005#,#6/27/2005#,"E"
.CellMerge(h1,0) = 1
.DefineSummaryBars h,"",h1,"E"
.ExpandItem(h) = True
.CellState(h,1) = 1
h = .AddItem("Project 2")
.AddBar h,"Summary",#6/26/2005#,#7/6/2005#
h1 = .InsertItem(h,,"Task 1")
.AddBar h1,"Task",#6/26/2005#,#7/2/2005#
.CellMerge(h1,0) = 1
.DefineSummaryBars h,"",h1,""
h1 = .InsertItem(h,,"Task 2")
.AddBar h1,"Task",#6/28/2005#,#7/6/2005#,"E"
.CellMerge(h1,0) = 1
.DefineSummaryBars h,"",h1,"E"
.ItemBar(h1,"E",21) = 5
h1 = .InsertItem(h,,"Task 3")
.AddBar h1,"Task",#6/30/2005#,#7/2/2005#,"E"
.CellMerge(h1,0) = 1
.DefineSummaryBars h,"",h1,"E"
.ExpandItem(h) = True
.CellState(h,1) = 1
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
795
|
How can I select or specify the items being included in the histogram, (using a different column )
![](images/exg2anttq795.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.MarkSearchColumn = False
With .Chart
.FirstVisibleDate = #1/1/2001#
.HistogramVisible = True
.HistogramView = 65540 ' &H10000 Or HistogramViewEnum.exHistogramCheckedItems
.HistogramHeight = 32
.Bars.Item("Task").HistogramPattern = 6
End With
.Columns.Add "Column"
With .Columns.Add("Histogram")
.Def(0) = True
.AllowSizing = False
.Width = 18
End With
With .Items
.AddBar .AddItem("Item 1"),"Task",#1/3/2001#,#1/5/2001#
h = .AddItem("Item 2")
.AddBar h,"Task",#1/4/2001#,#1/7/2001#
.CellState(h,1) = 1
h = .AddItem("Item 3")
.AddBar h,"Task",#1/2/2001#,#1/5/2001#
.CellState(h,1) = 1
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
794
|
How can I select or specify the items being included in the histogram
![](images/exg2anttq794.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .Chart
.FirstVisibleDate = #1/1/2001#
.HistogramVisible = True
.HistogramView = 4
.HistogramHeight = 32
.Bars.Item("Task").HistogramPattern = 6
End With
.Columns.Add("Column").Def(0) = True
With .Items
.AddBar .AddItem("Item 1"),"Task",#1/3/2001#,#1/5/2001#
h = .AddItem("Item 2")
.AddBar h,"Task",#1/4/2001#,#1/7/2001#
.CellState(h,0) = 1
h = .AddItem("Item 3")
.AddBar h,"Task",#1/2/2001#,#1/5/2001#
.CellState(h,0) = 1
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
793
|
Is there any option to display the histogram for selected items only
![](images/exg2anttq793.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.SingleSel = False
With .Chart
.FirstVisibleDate = #1/1/2001#
.HistogramVisible = True
.HistogramView = 2
.HistogramHeight = 32
.Bars.Item("Task").HistogramPattern = 6
End With
.Columns.Add "Column"
With .Items
.AddBar .AddItem("Item 1"),"Task",#1/3/2001#,#1/5/2001#
.AddBar .AddItem("Item 2"),"Task",#1/4/2001#,#1/7/2001#
.AddBar .AddItem("Item 3"),"Task",#1/2/2001#,#1/6/2001#
.SelectAll
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
792
|
Is it possible to add bars to a summary bar so, they get resized or moved as soon as a bar is changed
![](images/exg2anttq792.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.BackColor = RGB(255,255,255)
.ShowFocusRect = False
.HasLines = False
.LinesAtRoot = -1
.HasLines = False
.Indent = 14
.FullRowSelect = False
.ScrollBySingleLine = True
With .Chart
.BackColor = RGB(255,255,255)
.SelBackColor = RGB(245,245,245)
.AllowCreateBar = False
.AllowLinkBars = False
.FirstVisibleDate = #1/1/2008#
.LevelCount = 2
.PaneWidth(0) = 98
End With
.Columns.Add ""
With .Items
hProject = .AddItem("Project")
.ItemHeight(hProject) = 26
.AddBar hProject,"Project Summary",#1/2/2008#,#1/5/2008#
.ItemBar(hProject,"",3) = "<br>< <b>Project Summary</b> >"
hR1 = .InsertItem(hProject,,"Team 1")
.ItemHeight(hR1) = 30
.AddBar hR1,"Summary",#1/2/2008#,#1/8/2008#
.ItemBar(hR1,"",3) = "<br> Team <b>1</b> Summary "
h1 = .InsertItem(hR1,,"Member 1")
.AddBar h1,"Task",#1/2/2008#,#1/7/2008#
.DefineSummaryBars hR1,"",h1,""
h1 = .InsertItem(hR1,,"Member 2")
.AddBar h1,"Task",#1/4/2008#,#1/9/2008#
.DefineSummaryBars hR1,"",h1,""
h1 = .InsertItem(hR1,,"Member 3")
.AddBar h1,"Task",#1/5/2008#,#1/10/2008#
.DefineSummaryBars hR1,"",h1,""
.ExpandItem(hR1) = True
hR2 = .InsertItem(hProject,,"Team 2")
.ItemHeight(hR2) = 30
.AddBar hR2,"Summary",#1/2/2008#,#1/8/2008#
.ItemBar(hR2,"",3) = "<br> Team <b>2</b> Summary "
h2 = .InsertItem(hR2,,"Member 1")
.AddBar h2,"Task",#1/4/2008#,#1/7/2008#
.DefineSummaryBars hR2,"",h2,""
h2 = .InsertItem(hR2,,"Member 2")
.AddBar h2,"Task",#1/8/2008#,#1/11/2008#
.DefineSummaryBars hR2,"",h2,""
h2 = .InsertItem(hR2,,"Member 3")
.AddBar h2,"Task",#1/5/2008#,#1/12/2008#
.DefineSummaryBars hR2,"",h2,""
.ExpandItem(hR2) = True
.ExpandItem(.FirstVisibleItem) = True
.DefineSummaryBars hProject,"",hR1,""
.DefineSummaryBars hProject,"",hR2,""
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
791
|
Is it possible to define level in terms of just increasing numbers (not a Date)
![](images/exg2anttq791.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
With .Chart
.PaneWidth(0) = 32
.UnitWidth = 32
.FirstVisibleDate = 1000
.Level(0).Label = "<%i%>"
End With
End With
End Function
</SCRIPT>
</BODY>
|
790
|
How can I hide the non-working units ( days or hours )
![](images/exg2anttq790.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .Chart
.PaneWidth(0) = 0
.LevelCount = 2
With .Level(0)
.Label = "<%dddd%>"
.Alignment = 1
End With
.Level(1).Label = 65536
.NonworkingHours = 16773375
.ShowNonworkingUnits = False
.ShowNonworkingDates = False
.ShowNonworkingHours = False
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
789
|
Is there a way to have the display show the word "Noon" instead "12:00 PM" in the chart's header/levels
![](images/exg2anttq789.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
With .Chart
.PaneWidth(False) = 0
.FirstVisibleDate = #1/1/2001 10:00:00 AM#
.LevelCount = 3
With .Level(0)
.Label = "<b><%mmm%> <%d%>, <%yyyy%></b>"
.Alignment = 1
.Unit = 4096
End With
With .Level(1)
.Label = "<%h%>:00 <%AM/PM%>"
.Alignment = 1
.Unit = 65536
.DrawTickLines = True
.DrawGridLines = True
.ReplaceLabel("12:00 PM") = "<fgcolor=0000FF><b>Noon</b></fgcolor>"
End With
With .Level(2)
.Label = ""
.Unit = 1048576
.Count = 15
End With
End With
End With
End Function
</SCRIPT>
</BODY>
|
788
|
How can I change the selection background color in the chart area
![](images/exg2anttq788.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.Chart.FirstVisibleDate = #1/1/2001#
.Chart.SelBackColor = RGB(255,0,0)
.Columns.Add "Column"
With .Items
.AddBar .AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#
.AddBar .AddItem("Item 1"),"Task",#1/6/2001#,#1/14/2001#
.SelectItem(.FirstVisibleItem) = True
End With
End With
End Function
</SCRIPT>
</BODY>
|
787
|
How can I change the selection background color in the chart area
![](images/exg2anttq787.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.Chart.FirstVisibleDate = #1/1/2001#
.Chart.SelBackColor = &H1000000
.Columns.Add "Column"
With .Items
.AddBar .AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#
.AddBar .AddItem("Item 1"),"Task",#1/6/2001#,#1/14/2001#
.SelectItem(.FirstVisibleItem) = True
End With
End With
End Function
</SCRIPT>
</BODY>
|
786
|
Is there any way to extend the selection on the chart
![](images/exg2anttq786.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.Chart.FirstVisibleDate = #1/1/2001#
.Chart.SelBackColor = G2antt1.SelBackColor
.Columns.Add "Column"
With .Items
.AddBar .AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#
.AddBar .AddItem("Item 1"),"Task",#1/6/2001#,#1/14/2001#
.SelectItem(.FirstVisibleItem) = True
End With
End With
End Function
</SCRIPT>
</BODY>
|
785
|
How can I display the column's header using multiple lines
![](images/exg2anttq785.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.HeaderHeight = 128
.HeaderSingleLine = False
.Columns.Add("This is just a column that should break the header.").Width = 32
.Columns.Add "This is just another column that should break the header."
End With
End Function
</SCRIPT>
</BODY>
|
784
|
Can I move or limit moving or resizing a bar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.ScrollBySingleLine = True
.DrawGridLines = -1
.DefaultItemHeight = 19
.GridLineColor = RGB(220,220,220)
With .Chart
.FirstVisibleDate = #1/1/2001#
.ScrollRange(0) = #12/28/2000#
.ScrollRange(1) = #1/12/2001#
.DrawDateTicker = True
.NonworkingDays = 0
.DrawGridLines = -1
.ResizeUnitScale = 65536
.AllowCreateBar = False
.PaneWidth(0) = 128
.LevelCount = 2
.Level(0).DrawGridLines = False
.AllowLinkBars = False
.Bars.Item("Task").OverlaidType = 515 ' OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or OverlaidBarsTypeEnum.exOverlaidBarsStack
End With
.Columns.Add "Info"
With .Items
h = .AddItem("Fixed bar")
.AddBar h,"Task",#1/2/2001#,#1/5/2001#,"F"
.ItemBar(h,"F",10) = False
.ItemBar(h,"F",11) = False
.ItemBar(h,"F",6) = "This bar is fixed, so the uer can move or resize it"
h = .AddItem("Moveable but not-resizable bar")
.AddBar h,"Task",#1/3/2001#,#1/6/2001#,"F"
.ItemBar(h,"F",6) = "This bar is moveable inside the item, but the user can't resize it."
.ItemBar(h,"F",10) = False
h = .AddItem("Resizable but not moveable bar")
.AddBar h,"Task",#1/3/2001#,#1/6/2001#,"F"
.ItemBar(h,"F",6) = "This bar is resizable but the user can't move it."
.ItemBar(h,"F",11) = False
h = .AddItem("Range Moveable bar")
.AddBar h,"Task",#1/2/2001#,#1/6/2001#,"F"
.ItemBar(h,"F",6) = "This bar can be moved inside the displayed range."
.ItemBar(h,"F",22) = #1/2/2001#
.ItemBar(h,"F",25) = #1/8/2001#
.ItemBar(h,"F",26) = 32
.ItemBar(h,"F",27) = 90
h = .AddItem("Range Moveable Upper No Limit bar")
.AddBar h,"Task",#1/3/2001#,#1/6/2001#,"F"
.ItemBar(h,"F",6) = "This bar can be moved inside the displayed range."
.ItemBar(h,"F",22) = #1/2/2001#
.ItemBar(h,"F",26) = 32
.ItemBar(h,"F",27) = 90
h = .AddItem("Range Moveable Lower No Limit bar")
.AddBar h,"Task",#1/3/2001#,#1/6/2001#,"F"
.ItemBar(h,"F",6) = "This bar can be moved inside the displayed range."
.ItemBar(h,"F",25) = #1/8/2001#
.ItemBar(h,"F",26) = 32
.ItemBar(h,"F",27) = 90
h = .AddItem("Moveable bar inside the item")
.AddBar h,"Task",#1/2/2001#,#1/6/2001#,"F"
.ItemBar(h,"F",6) = "This bar can be moved/resized anywhere inside the item."
h = .AddItem("Moveable bar to other items too")
.AddBar h,"Task",#1/2/2001#,#1/6/2001#,"FA"
.ItemBar(h,"FA",6) = "This bar can be moved to other items too. Click the bar and move it to other items too."
.ItemBar(h,"FA",3) = "free"
.ItemBar(h,"FA",4) = 18
.ItemBar(h,"FA",28) = True
h = .AddItem("Moveable inside item")
.AddBar h,"Task",#1/3/2001#,#1/5/2001#,"F1"
h = .AddItem("Moveable inside item")
.AddBar h,"Task",#1/3/2001#,#1/5/2001#,"F1"
h = .AddItem("Moveable inside item")
.AddBar h,"Task",#1/3/2001#,#1/5/2001#,"F1"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
783
|
Can I move a bar from an item to another by drag and drop
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.Chart.FirstVisibleDate = #1/1/2001#
.Chart.AllowLinkBars = False
.Chart.Bars.Item("Task").OverlaidType = 257 ' OverlaidBarsTypeEnum.exOverlaidBarsTransparent Or OverlaidBarsTypeEnum.exOverlaidBarsOffset
.Columns.Add "Column"
With .Items
.AddBar .AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#,"A"
h = .AddItem("Item 2")
.AddBar h,"Task",#1/5/2001#,#1/7/2001#,"B"
.ItemBar(h,"B",28) = True
.AddItem "Item 3"
.AddItem "Item 4"
End With
End With
End Function
</SCRIPT>
</BODY>
|
782
|
Can I move a bar from an item to another
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.Chart.FirstVisibleDate = #1/1/2001#
.Columns.Add "Column"
With .Items
.AddBar .AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#,"A"
h = .AddItem("Item 2")
.AddBar h,"Task",#1/6/2001#,#1/14/2001#,"B"
.ItemBar(h,"B",512) = .FirstVisibleItem
End With
End With
End Function
</SCRIPT>
</BODY>
|
781
|
How can change the width, transparency, style, visual appearance ( EBN), of the vertical bar that shows the current date-time
![](images/exg2anttq781.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
With .Chart
.LevelCount = 2
.Level(0).Label = 1048576
With .Level(1)
.Label = "<%ss%>"
.Count = 15
End With
.MarkNowColor = &H1000000
.MarkNowWidth = 6
.MarkNowTransparent = 50
End With
.Columns.Add "Tasks"
With .Items
.AddBar .AddItem("Item 1"),"Task",#1/1/2008#,#1/1/2018#
End With
End With
End Function
</SCRIPT>
</BODY>
|
780
|
How can change the width, style, visual appearance ( EBN), of the vertical bar that shows the current time
![](images/exg2anttq780.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
With .Chart
.LevelCount = 2
.Level(0).Label = 1048576
With .Level(1)
.Label = "<%ss%>"
.Count = 15
End With
.MarkNowColor = &H1000000
.MarkNowWidth = 6
End With
.Columns.Add "Tasks"
With .Items
.AddBar .AddItem("Item 1"),"Task",#1/1/2008#,#1/1/2018#
End With
End With
End Function
</SCRIPT>
</BODY>
|
779
|
How can I show a vertical bar that indicates the current time
![](images/exg2anttq779.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
With .Chart
.LevelCount = 2
.Level(0).Label = 1048576
With .Level(1)
.Label = "<%ss%>"
.Count = 15
End With
.MarkNowColor = RGB(0,0,255)
.MarkNowWidth = 7
End With
.Columns.Add "Tasks"
With .Items
.AddBar .AddItem("Item 1"),"Task",#1/1/2008#,#1/1/2018#
End With
End With
End Function
</SCRIPT>
</BODY>
|
778
|
How can I show semi-transparent the vertical bar that indicates the current time
![](images/exg2anttq778.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
With .Chart
.LevelCount = 2
.Level(0).Label = 1048576
With .Level(1)
.Label = "<%ss%>"
.Count = 15
End With
.MarkNowColor = RGB(0,0,255)
.MarkNowWidth = 7
.MarkNowTransparent = 50
End With
.Columns.Add "Tasks"
With .Items
.AddBar .AddItem("Item 1"),"Task",#1/1/2008#,#1/1/2018#
End With
End With
End Function
</SCRIPT>
</BODY>
|
777
|
Is there any way to highlight or show a vertical bar that indicates the current time, from 15 to 15 seconds
![](images/exg2anttq777.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.Chart.LevelCount = 2
.Chart.Level(0).Label = 1048576
With .Chart.Level(1)
.Label = "<%ss%>"
.Count = 15
End With
.Chart.MarkNowColor = RGB(0,0,255)
.Chart.MarkNowCount = 15
.Chart.MarkNowWidth = 3
End With
End Function
</SCRIPT>
</BODY>
|
776
|
Is there any way to highlight or show a vertical bar that indicates the current time, from minute to minute, hour and so on
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
With .Chart
.UnitWidth = 48
.LevelCount = 1
.Level(0).Label = 1048576
.MarkNowColor = RGB(255,0,0)
.MarkNowUnit = 1048576
.MarkNowWidth = .UnitWidth
End With
End With
End Function
</SCRIPT>
</BODY>
|
775
|
Is there any way to highlight or show a vertical bar that indicates the current time
![](images/exg2anttq775.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.Chart.LevelCount = 2
.Chart.Level(0).Label = 1048576
With .Chart.Level(1)
.Label = "<%ss%>"
.Count = 15
End With
.Chart.MarkNowColor = RGB(255,0,0)
End With
End Function
</SCRIPT>
</BODY>
|
774
|
Is there a way of making a bar flash on the screen
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.Columns.Add "Task"
.Chart.FirstVisibleDate = #1/1/2001#
With .Items
h = .AddItem("Flashy task")
.AddBar h,"Task",#1/2/2001#,#1/6/2001#,"K1"
.ItemBar(h,"K1",19) = 80
End With
End With
End Function
</SCRIPT>
</BODY>
|
773
|
Is there any option to display overlay bars as a stack, or bars that laid over or cover other bars (exOverlaidBarsStackAutoArrange)
![](images/exg2anttq773.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.ScrollBySingleLine = True
.Columns.Add "Task"
.DrawGridLines = 1
With .Chart
.DrawGridLines = 1
.AllowCreateBar = 1
.AllowLinkBars = False
.ResizeUnitScale = 65536
.PaneWidth(False) = 48
.FirstVisibleDate = #1/1/2001#
With .Bars.Item("Task")
.OverlaidType = 515 ' OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or OverlaidBarsTypeEnum.exOverlaidBarsStack
.Overlaid(256) = 80
End With
End With
With .Items
h = .AddItem("Task 1")
.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"A1"
.AddBar h,"Task",#1/3/2001#,#1/5/2001#,"A2"
.AddBar h,"Task",#1/4/2001#,#1/7/2001#,"A3"
h = .AddItem("Task 2")
.AddBar h,"Task",#1/7/2001#,#1/10/2001#,"A1"
.AddBar h,"Task",#1/8/2001#,#1/12/2001#,"A3"
h = .AddItem()
.SelectableItem(h) = False
.AddBar h,"",#1/7/2001#,#1/11/2001#,,"<fgcolor=FF0000>Click a bar and move to a new position."
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
772
|
Is there any option to display overlay bars as a stack, or bars that laid over or cover other bars (overlay)
![](images/exg2anttq772.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.ScrollBySingleLine = True
.Columns.Add "Task"
.DrawGridLines = 1
With .Chart
.DrawGridLines = 1
.AllowCreateBar = 1
.AllowLinkBars = False
.ResizeUnitScale = 65536
.PaneWidth(False) = 48
.FirstVisibleDate = #1/1/2001#
.Bars.Item("Task").OverlaidType = 3
End With
With .Items
h = .AddItem("Task 1")
.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"A1"
.AddBar h,"Task",#1/3/2001#,#1/5/2001#,"A2"
.AddBar h,"Task",#1/4/2001#,#1/7/2001#,"A3"
h = .AddItem("Task 2")
.AddBar h,"Task",#1/7/2001#,#1/10/2001#,"A1"
.AddBar h,"Task",#1/8/2001#,#1/12/2001#,"A3"
h = .AddItem()
.SelectableItem(h) = False
.AddBar h,"",#1/7/2001#,#1/11/2001#,,"<fgcolor=FF0000>Click a bar and move to a new position."
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
771
|
Does the overlay also work in milestone bars
![](images/exg2anttq771.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.DefaultItemHeight = 22
.Columns.Add "Task"
With .Chart
.ResizeUnitScale = 65536
.PaneWidth(False) = 48
.FirstVisibleDate = #1/1/2001#
With .Bars
With .Item("Task")
.OverlaidType = 257 ' OverlaidBarsTypeEnum.exOverlaidBarsTransparent Or OverlaidBarsTypeEnum.exOverlaidBarsOffset
.OverlaidGroup = "Milestone"
End With
With .Item("Milestone")
.OverlaidType = 257 ' OverlaidBarsTypeEnum.exOverlaidBarsTransparent Or OverlaidBarsTypeEnum.exOverlaidBarsOffset
.OverlaidGroup = "Task"
End With
End With
End With
With .Items
h = .AddItem("Task 1")
.AddBar h,"Task",#1/4/2001#,#1/7/2001#,"A1"
.AddBar h,"Milestone",#1/8/2001#,#1/8/2001#,"M"
.AddBar h,"Task",#1/9/2001#,#1/12/2001#,"A3"
h = .AddItem("Task 2")
.AddBar h,"Milestone",#1/4/2001#,#1/4/2001#,"M"
.AddBar h,"Task",#1/5/2001#,#1/8/2001#,"A1"
.AddBar h,"Task",#1/9/2001#,#1/12/2001#,"A3"
h = .AddItem()
.SelectableItem(h) = False
.AddBar h,"",#1/7/2001#,#1/11/2001#,,"<fgcolor=FF0000>Click a bar and move to a new position."
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
770
|
Is there any option to display overlaid bars of different types, or bars that laid over or cover other bars (overlay)
![](images/exg2anttq770.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.DefaultItemHeight = 22
.Columns.Add "Task"
With .Chart
.ResizeUnitScale = 65536
.PaneWidth(False) = 48
.FirstVisibleDate = #1/1/2001#
With .Bars
.Copy("Task","RTask").Color = RGB(255,0,0)
.Copy("Task","GTask").Color = RGB(0,255,0)
With .Item("Task")
.OverlaidType = 257 ' OverlaidBarsTypeEnum.exOverlaidBarsTransparent Or OverlaidBarsTypeEnum.exOverlaidBarsOffset
.Overlaid(256) = 70
.OverlaidGroup = "RTask,GTask"
End With
End With
End With
With .Items
h = .AddItem("Task 1")
.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"A1"
.AddBar h,"Task",#1/3/2001#,#1/5/2001#,"A2"
.AddBar h,"Task",#1/4/2001#,#1/7/2001#,"A3"
h = .AddItem("Task 2")
.AddBar h,"Task",#1/4/2001#,#1/8/2001#,"A1"
.AddBar h,"GTask",#1/7/2001#,#1/12/2001#,"A2"
.AddBar h,"RTask",#1/10/2001#,#1/15/2001#,"A3"
h = .AddItem()
.SelectableItem(h) = False
.AddBar h,"",#1/7/2001#,#1/11/2001#,,"<fgcolor=FF0000>Click a bar and move to a new position."
End With
End With
End Function
</SCRIPT>
</BODY>
|
769
|
Is there any option to display overlaid bars, or bars that laid over or cover other bars (overlay)
![](images/exg2anttq769.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.DefaultItemHeight = 22
.Columns.Add "Task"
With .Chart
.ResizeUnitScale = 65536
.PaneWidth(False) = 48
.FirstVisibleDate = #1/1/2001#
With .Bars
With .Copy("Task","BTask")
.Color = RGB(255,0,0)
End With
With .Item("Task")
.OverlaidType = 2
.Overlaid(2) = "BTask"
End With
End With
End With
With .Items
h = .AddItem("Task 1")
.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"A1"
.AddBar h,"Task",#1/3/2001#,#1/5/2001#,"A2"
.AddBar h,"Task",#1/4/2001#,#1/7/2001#,"A3"
h = .AddItem("Task 2")
.AddBar h,"Task",#1/7/2001#,#1/10/2001#,"A1"
.AddBar h,"Task",#1/8/2001#,#1/12/2001#,"A3"
h = .AddItem()
.SelectableItem(h) = False
.AddBar h,"",#1/7/2001#,#1/11/2001#,,"<fgcolor=FF0000>Click a bar and move to a new position."
End With
End With
End Function
</SCRIPT>
</BODY>
|
768
|
Is there any option to display overlaid bars, or bars that laid over or cover other bars (overlay)
![](images/exg2anttq768.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.DefaultItemHeight = 22
.Columns.Add "Task"
With .Chart
.ResizeUnitScale = 65536
.PaneWidth(False) = 48
.FirstVisibleDate = #1/1/2001#
With .Bars.Item("Task")
.OverlaidType = 257 ' OverlaidBarsTypeEnum.exOverlaidBarsTransparent Or OverlaidBarsTypeEnum.exOverlaidBarsOffset
.Overlaid(256) = 70
End With
End With
With .Items
h = .AddItem("Task 1")
.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"A1"
.AddBar h,"Task",#1/3/2001#,#1/5/2001#,"A2"
.AddBar h,"Task",#1/4/2001#,#1/7/2001#,"A3"
h = .AddItem("Task 2")
.AddBar h,"Task",#1/7/2001#,#1/10/2001#,"A1"
.AddBar h,"Task",#1/8/2001#,#1/12/2001#,"A3"
h = .AddItem()
.SelectableItem(h) = False
.AddBar h,"",#1/7/2001#,#1/11/2001#,,"<fgcolor=FF0000>Click a bar and move to a new position."
End With
End With
End Function
</SCRIPT>
</BODY>
|
767
|
Is there any option to display overlaid bars, or bars that laid over or cover other bars (overlay)
![](images/exg2anttq767.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.DefaultItemHeight = 22
.Columns.Add "Task"
With .Chart
.ResizeUnitScale = 65536
.PaneWidth(False) = 48
.FirstVisibleDate = #1/1/2001#
.Bars.Item("Task").OverlaidType = 1
End With
With .Items
h = .AddItem("Task 1")
.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"A1"
.AddBar h,"Task",#1/3/2001#,#1/5/2001#,"A2"
.AddBar h,"Task",#1/4/2001#,#1/7/2001#,"A3"
h = .AddItem("Task 2")
.AddBar h,"Task",#1/7/2001#,#1/10/2001#,"A1"
.AddBar h,"Task",#1/8/2001#,#1/12/2001#,"A3"
h = .AddItem()
.SelectableItem(h) = False
.AddBar h,"",#1/7/2001#,#1/11/2001#,,"<fgcolor=FF0000>Click a bar and move to a new position."
End With
End With
End Function
</SCRIPT>
</BODY>
|
766
|
How can include the values in the inner cells in the drop down filter window
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.DrawGridLines = -2
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.Description(1) = ""
.Description(2) = ""
With .Columns.Add("Single Column")
.HTMLCaption = "Single column with <b>inner cells</b>"
.ToolTip = "Click the drop down filter button, and the filter list includes the inner cells values too."
.DisplayFilterButton = True
.DisplayFilterPattern = False
.FilterList = 64
End With
.ShowFocusRect = False
With .Items
s = .SplitCell(.AddItem("S 1.1"),0)
.CellValue(,s) = "S 1.2"
.CellHAlignment(,s) = 1
.CellBackColor(,s) = &H1000000
.CellWidth(,s) = 84
s = .SplitCell(.AddItem("S 2.1"),0)
.CellValue(,s) = "S 2.2"
.CellHAlignment(,s) = 1
.CellWidth(,s) = 84
s = .SplitCell(.AddItem("S 3.1"),0)
.CellValue(,s) = "S 3.2"
.CellHAlignment(,s) = 1
.CellBackColor(,s) = &H1000000
.CellWidth(,s) = 84
End With
End With
End Function
</SCRIPT>
</BODY>
|
765
|
How can I sort the value gets listed in the drop down filter window
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.LinesAtRoot = -1
.MarkSearchColumn = False
.Description(0) = ""
.Description(1) = ""
.Description(2) = ""
With .Columns.Add("P1")
.DisplayFilterButton = True
.DisplayFilterPattern = False
.FilterList = 16
End With
With .Columns.Add("P2")
.DisplayFilterButton = True
.DisplayFilterPattern = False
.FilterList = 32
End With
With .Items
h = .AddItem("Z3")
.CellValue(h,1) = "C"
.CellValue(.InsertItem(h,,"Z1"),1) = "B"
.CellValue(.InsertItem(h,,"Z2"),1) = "A"
.ExpandItem(h) = True
End With
End With
End Function
</SCRIPT>
</BODY>
|
764
|
Is there a way to break the hours into 15 minute increments just showing lines instead of the minute numbers
![](images/exg2anttq764.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.Chart.FirstVisibleDate = #2/5/2008#
.Chart.LevelCount = 3
.Chart.Level(0).Label = "<b><%mmm%> <%dd%></b> <%yyyy%> "
With .Chart.Level(1)
.Label = "<%hh%>"
.Alignment = 1
End With
With .Chart.Level(2)
.Label = ""
.Unit = 1048576
.Count = 15
End With
.Chart.UnitWidth = 6
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
763
|
How do I specify a range where the bar can be moved or resized and to highlight the range
![](images/exg2anttq763.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.Chart.FirstVisibleDate = #1/1/2001#
.Chart.ScrollRange(0) = #1/1/2001#
.Chart.ScrollRange(1) = #1/7/2001#
.Chart.PaneWidth(0) = 128
.Columns.Add "Column"
With .Items
h = .AddItem("Item 1")
.AddBar h,"Task",#1/1/2001#,#1/4/2001#
.ItemBar(h,"",22) = #1/2/2001#
.ItemBar(h,"",25) = #1/8/2001#
.ItemBar(h,"",26) = 16777216
.ItemBar(h,"",27) = 60
h = .AddItem("Item 2")
.AddBar h,"Task",#1/1/2001#,#1/4/2001#
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
762
|
How do I specify a range where the bar can be moved or resized and to highlight the range
![](images/exg2anttq762.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.Chart.FirstVisibleDate = #1/1/2001#
.Chart.ScrollRange(0) = #1/1/2001#
.Chart.ScrollRange(1) = #1/7/2001#
.Chart.PaneWidth(0) = 128
.Columns.Add "Column"
With .Items
h = .AddItem("Item 1")
.AddBar h,"Task",#1/1/2001#,#1/4/2001#
.ItemBar(h,"",22) = #1/2/2001#
.ItemBar(h,"",25) = #1/8/2001#
.ItemBar(h,"",26) = 32
.ItemBar(h,"",27) = 90
h = .AddItem("Item 2")
.AddBar h,"Task",#1/1/2001#,#1/4/2001#
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
761
|
How do I specify a range where the bar can be moved or resized and to highlight the range
![](images/exg2anttq761.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.Chart.FirstVisibleDate = #1/1/2001#
.Chart.ScrollRange(0) = #1/1/2001#
.Chart.ScrollRange(1) = #1/7/2001#
.Chart.PaneWidth(0) = 128
.Columns.Add "Column"
With .Items
h = .AddItem("Item 1")
.AddBar h,"Task",#1/1/2001#,#1/4/2001#
.ItemBar(h,"",22) = #1/2/2001#
.ItemBar(h,"",25) = #1/8/2001#
.ItemBar(h,"",26) = 65286
.ItemBar(h,"",27) = 90
h = .AddItem("Item 2")
.AddBar h,"Task",#1/1/2001#,#1/4/2001#
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
760
|
How do I specify a range where the bar can be moved or resized
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.Chart.FirstVisibleDate = #1/1/2001#
.Chart.ScrollRange(0) = #1/1/2001#
.Chart.ScrollRange(1) = #1/7/2001#
.Chart.PaneWidth(0) = 128
.Columns.Add "Column"
With .Items
h = .AddItem("Item 1")
.AddBar h,"Task",#1/1/2001#,#1/4/2001#
.ItemBar(h,"",22) = #1/2/2001#
.ItemBar(h,"",25) = #1/8/2001#
h = .AddItem("Item 2")
.AddBar h,"Task",#1/1/2001#,#1/4/2001#
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
759
|
How can I change the visual appearance of the milestone bar using EBN
![](images/exg2anttq759.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
With .VisualAppearance
.Add 1,"gBFLBCJwBAEHhEJAEGg4BKMMQAAYAQGKIYBkAKBQAGaAoDDMMILQiMQwjRBMKgBBCLIxiGK4DhiF4aRTHUKAAKQahLEaSZLhEZRQiqA4sS5FQBSBDQFwSByEY6mSaYJ" & _
"AWK4tCyNM7SfQAbxnAgYaLAAYRUjuHZOTZAc4UfAdFL/K4AKrfeZIeAiCRQGiYZyHKaRShjDwXKLIIjbJhkNoJChCNQgBScPgxCx8JypaCaar2fjQM6zWAMdb2Cz7PjD" & _
"H7wPA1WYJRaDYjhcB4LheAqGXBWUYLYb8XS3EKJYhiWA4HjqFjGJpcEzPbRiNx3H6SABlLLaLo7JpGO52FrTHZjXyzLqBVpoOyEbrmcozYzjN41RpWETfQYDcwteqcLp" & _
"rhGVZrm6dp8j4bAnDQP5Uh+OpcH6R4Lg2YJvEIeg6kWEoJB2ZZyG6GoLCSXxtG+IZ1GmfhJjcawNFWfB/h+V5pnUc5VhWeZ4BMX4jlySwtiAJodlEYRaBYFgHHgIA2gG" & _
"ExkFUdxFl6A5hgUbgXgcVRzFiXA3CICARAEgI"
.Add 2,"CP:1 -6 0 5 0"
End With
With .Chart
.FirstVisibleDate = #1/1/2001#
With .Bars.Add("MilestoneEBN")
.Color = &H2000000
.Height = 14
End With
End With
.Columns.Add "Tasks"
With .Items
.AddBar .AddItem("Milestone"),"Milestone",#1/2/2001#,#1/2/2001 0:00:01 AM#
.AddBar .AddItem("Milestone EBN "),"MilestoneEBN",#1/2/2001#,#1/2/2001 0:00:01 AM#
End With
End With
End Function
</SCRIPT>
</BODY>
|
758
|
How can I change the visual appearance of the summary bar using EBN
![](images/exg2anttq758.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.VisualAppearance.Add 1,"gBFLBCJwBAEHhEJAEGg4BGICg6AADACAxRDAMgBQKAAzQFAYZhhBaERiGEaIJhUAIIRZGMQxXAcMQvDSKQJhGDAADEMgyAJCIxjPIgZBoGqPBpASQJUhkMocR7HMygB" & _
"IkSRNA8kMwxdQEaw9ECRIDpGaYWTFDhsABTVQRLL0Tw9ISERqoSSaGgkCYaA7CNJ0PBNJSjJ6LJZGURbKqyCQ1DBbUB3BaUaQ9JaKa7pKa7cpWKIqSxEMrxcLFcT5DSb" & _
"YDxGjLEhmPZBVZQNBxtJbFQHWJCNgzVAdOAAfzQM70GpMQoWJYeVpEObSBD1dABTCBczADYoex7ID+aJuGiYVZdWxJOjfbhkTTIJAaCawABrWxR8iHN5paTnUpzDjwbg" & _
"0kqRRyr+XwjA8Go/HSBp6g6KJTFcGpWmYdg8H6dJTH0EZelueBfBuLwyBMd50nIfR+kmXB4BECQUAaEYMHQHRHCGFRYI2ZAwEIExghQZA2EIQoGGoEhOgGBBYlAeYYHM" & _
"WJcDcGx4HYHoHmICIFjeBohkaDAAC2DAjBYJIIiKSI2CSC5hjQJBsCOCwYiIKoGmKWJkn6DANkiWgzCwYwolAcQkksWJaCuDohlicg2hDQR+EELBInKcJohMJBomILoG" & _
"mISQuESFBOgkOQDg+SoTEyfoXCUSImDyGZhjkaI1hcJgTnoXgACYCYKG2GQkEkVJchKIoZDIbIciYKY+HEP4mlmThSg+aBIlKBYUCUKgGHyG4jEkPoKiAKI6D6EokGkS" & _
"gyECF5jEKVJZD+aYqHKG4nGoCh+iKJ4qEqBokh+KYag6JoqmqKo2iWJpqgKRJHDiT5qk6NYtCsapmjiLprHqdo6i8awan6QovCwOp6kSLQsBsHpGjKbBbBaMYhm0Cgal" & _
"ILBtBsUpTiGUIUAQgIA=="
With .Chart
.FirstVisibleDate = #1/1/2001#
With .Bars.Copy("Task","Summary")
.Color = &H1000000
.Height = 16
End With
End With
.Columns.Add "Tasks"
With .Items
.AddBar .AddItem("Task 1"),"Task",#1/2/2001#,#1/4/2001#
.AddBar .AddItem("Task 2"),"Summary",#1/5/2001#,#1/7/2001#
End With
End With
End Function
</SCRIPT>
</BODY>
|
757
|
How can I change the visual appearance of the task bar using EBN
![](images/exg2anttq757.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.VisualAppearance.Add 1,"gBFLBCJwBAEHhEJAEGg4BGoCg6AADACAxRDAMgBQKAAzQFAYZhhBaERiGEaIJhUAIIRZGMQxXAcMQvDSKQJhGLhQiSJoJDSBEgSXDIZQ5D6OZYACDJQACJYJTbAYzyP" & _
"JkPRAA6EZCmGAwCglf5HABRb7xNLkbQ8GySKJnWCQJhoD5BSLCNRUTRFFQtGgZBpEWwLCjQNQwWLKFoTJIEPSBDKqYDoKYqTgOOZOThHQz3HakQRdAa/ZpnaKpUo2d47" & _
"XjMWBwGA0EzeAAGaxoShqdoiFaGU7UOJVJBOGwHK6BchoMAKbp6XoVWRaOAWLZWVABM7XLZxbLccyGfZ1XhdV5UbqUMznR7PNrjLKIJpCOJbbyAFwgBaeQABYLhK7iHR" & _
"mi8XYwjMWpjFWOx1GIB5LmgdB4HCEBECSIBpDGHQOicIwokYPImikEIJj6eJIloEgogSc40FGcJEFiYZIG2VIoAURw1g2QxyAQNwNAMPJOgIYI4CoDIBmAeAKBIUpQDU" & _
"KJYDoTpIB4vxgmgdgNgeYZDDoFw7CEJhQn+BohmKfImCWSZRlgYwikYMQ0gwF4DniTA/gwBJYjQYwsgoIg6AyCRQDiIJODAZBImoOguAmMZ4lQLIJjOMI3CYZJpEIT4K" & _
"iKSI6DqD5ZGAAgHC2DAjBYR4SGUGYGE+GIlCmFhRhIB5iFAbwWsiJgMhoCoxngV4ZCcSYOHaGYnHmIg8COJpoCoOISmSWZeHWHgoEkRoAg4EIYB4NogmiSgKg6GRjGoJ" & _
"gFh+ZJKDaBYjmgaQygiBRUHmbhoDsTAyiqIIoioGoOw8aoKhKKoemeOIaAeF5HmqHoqiyKxKgYaN/locgBiuZRojoVIok8cwsjaMBLGqDoAhGIpoEYWYEmAIxUkQLZmg" & _
"iYg2g2I4JiCQwuAqWIOIkEAQICA=="
With .Chart
.FirstVisibleDate = #1/1/2001#
With .Bars.Item("Task")
.Color = &H1000000
.Height = 16
End With
End With
.Columns.Add "Tasks"
With .Items
.AddBar .AddItem("Task 1"),"Task",#1/2/2001#,#1/4/2001#
.AddBar .AddItem("Task 2"),"Task",#1/5/2001#,#1/7/2001#
End With
End With
End Function
</SCRIPT>
</BODY>
|
756
|
How can I change the visual appearance of the task bar using EBN
![](images/exg2anttq756.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.VisualAppearance.Add 1,"gBFLBCJwBAEHhEJAEGg4BZsIQAAYAQGKIYBkAKBQAGaAoDDMMILQiMQwjRBMKgBBCLIxiGK4DhiGoZATCMbDBIcSwSGgCJCjeS4ZDKHIXSxFUKTBAcSQTGyBRokaYZR" & _
"i6A4+TRPETTWAEcABHSbQCoKTKAoCHpLQLMYxDKItJSpGYaRgqWCaZpuUIaUzKVbxbK9CSMGiQbIsOJrBqqQozWZHVITLR9VgBNqga7uGR5DoqdovU5dVTVda9Ly5LSs" & _
"MQvfALCqOe45URdNp3RiVBYfI6+cZvfJLWh4NqeAbCMC1UJoYhlUKCBg0TRoVo9AIDX5QWaYXC0AkBA=="
With .Chart
.FirstVisibleDate = #1/1/2001#
With .Bars.Item("Task")
.Color = &H1000000
.Height = 16
End With
End With
.Columns.Add "Tasks"
With .Items
.AddBar .AddItem("Task 1"),"Task",#1/2/2001#,#1/4/2001#
.AddBar .AddItem("Task 2"),"Task",#1/5/2001#,#1/7/2001#
End With
End With
End Function
</SCRIPT>
</BODY>
|
755
|
Is there any way to change the units and count of units used in resizing or moving a bar
![](images/exg2anttq755.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.Columns.Add "Task"
With .Chart
.AllowCreateBar = 0
.DrawGridLines = True
.PaneWidth(0) = 64
.FirstVisibleDate = #6/21/2005#
.ResizeUnitScale = 65536
.ResizeUnitCount = 8
.UnitWidth = 64
With .Level(0)
.Label = "<b><%mmm%></b> <%dd%>"
.DrawGridLines = True
End With
End With
With .Items
h = .AddItem("Root")
.AddBar h,"Task",#6/22/2005#,#6/23/2005 4:00:00 PM#
h1 = .InsertItem(h,,"Task 1")
.AddBar h1,"",#6/22/2005#,#6/24/2005#,,"some <font Comic Sans MS;12><a>text</a></font> here"
h1 = .InsertItem(h,,"Task 2")
.AddBar h1,"Task",#6/23/2005 8:00:00 AM#,#6/28/2005#
.AddLink "Link1",h,"",h1,""
.Link("Link1",6) = 0
.Link("Link1",12) = "<bgcolor=FFFFFF> Link <a>1</a> </bgcolor>"
.ExpandItem(h) = True
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
754
|
When trying to resize, move or create a bar, it appears that you can only resize, move or create it in the units that were specified for the level in the timeline. Is there any way to change the units used in resizing or moving a bar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.Columns.Add "Task"
With .Chart
.AllowCreateBar = 0
.PaneWidth(0) = 64
.FirstVisibleDate = #6/21/2005#
.ResizeUnitScale = 65536
.UnitWidth = 64
.Level(0).Label = "<b><%mmm%></b> <%dd%>"
End With
With .Items
h = .AddItem("Root")
.AddBar h,"Task",#6/22/2005#,#6/23/2005 4:00:00 PM#
h1 = .InsertItem(h,,"Task 1")
.AddBar h1,"",#6/22/2005#,#6/24/2005#,,"some <font Comic Sans MS;12><a>text</a></font> here"
h1 = .InsertItem(h,,"Task 2")
.AddBar h1,"Task",#6/23/2005 8:00:00 AM#,#6/28/2005#
.AddLink "Link1",h,"",h1,""
.Link("Link1",6) = 0
.Link("Link1",12) = "<bgcolor=FFFFFF> Link <a>1</a> </bgcolor>"
.ExpandItem(h) = True
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
753
|
How can I clip the HTML text or caption inside the bar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.Columns.Add "Task"
.Chart.FirstVisibleDate = #1/1/2001#
With .Chart.Bars.Item("Task")
.Pattern = 32
.Height = 13
End With
With .Items
h = .AddItem("Task 1")
.AddBar h,"Task",#1/2/2001#,#1/6/2001#,"K1","This is a bit of text that get's clipped"
.ItemBar(h,"K1",4) = 3
End With
End With
End Function
</SCRIPT>
</BODY>
|
752
|
How to show the overallocation/workload histogram
![](images/exg2anttq752.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.Columns.Add "Tasks"
With .Chart
.LevelCount = 2
.NonworkingDays = 0
.PaneWidth(0) = 70
.FirstVisibleDate = #6/20/2005#
.HistogramVisible = True
.HistogramHeight = 64
With .Bars.Item("Task")
.HistogramCriticalColor = RGB(255,0,0)
.HistogramPattern = 512
.HistogramType = 1
End With
End With
With .Items
h = .AddItem("Root")
.AddBar h,"Summary",#6/21/2005#,#7/1/2005#
h1 = .InsertItem(h,,"Task 1")
.AddBar h1,"Task",#6/21/2005#,#6/28/2005#
h1 = .InsertItem(h,,"Task 2")
.AddBar h1,"Task",#6/23/2005#,#7/1/2005#,"E"
.ItemBar(h1,"E",21) = 5
h1 = .InsertItem(h,,"Task 3")
.AddBar h1,"Task",#6/25/2005#,#6/27/2005#,"E"
.ItemBar(h1,"E",21) = 2
.ItemBar(h1,"E",3) = "move/resize this"
.ItemBar(h1,"E",4) = 18
.ItemBar(h1,"E",6) = "Click the bar and move or resize it. The histogram-graph will be updated."
.AddLink "Link1",h,"",h1,"E"
.Link("Link1",6) = 0
.ExpandItem(h) = True
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
751
|
How to show the overload histogram
![](images/exg2anttq751.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.Columns.Add "Tasks"
With .Chart
.LevelCount = 2
.NonworkingDays = 0
.PaneWidth(0) = 70
.FirstVisibleDate = #6/20/2005#
.HistogramVisible = True
.HistogramHeight = 64
With .Bars.Item("Task")
.HistogramPattern = 258 ' &H100 Or PatternEnum.exPatternDot
.HistogramType = 0
End With
End With
With .Items
h = .AddItem("Root")
.AddBar h,"Summary",#6/21/2005#,#7/1/2005#
h1 = .InsertItem(h,,"Task 1")
.AddBar h1,"Task",#6/21/2005#,#6/28/2005#
h1 = .InsertItem(h,,"Task 2")
.AddBar h1,"Task",#6/23/2005#,#7/1/2005#,"E"
.ItemBar(h1,"E",21) = 5
h1 = .InsertItem(h,,"Task 3")
.AddBar h1,"Task",#6/25/2005#,#6/27/2005#,"E"
.ItemBar(h1,"E",21) = 2
.ItemBar(h1,"E",3) = "move/resize this"
.ItemBar(h1,"E",4) = 18
.ItemBar(h1,"E",6) = "Click the bar and move or resize it. The histogram-graph will be updated."
.AddLink "Link1",h,"",h1,"E"
.Link("Link1",6) = 0
.ExpandItem(h) = True
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
750
|
How can I align the text/caption on the scroll bar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.ScrollPartCaption(1,512) = "left"
.ScrollPartCaptionAlignment(1,512) = 0
.ScrollPartCaption(1,128) = "right"
.ScrollPartCaptionAlignment(1,128) = 2
.ColumnAutoResize = False
.Columns.Add 1
.Columns.Add 2
.Columns.Add 3
.Columns.Add 4
End With
End Function
</SCRIPT>
</BODY>
|
749
|
How do I programmatically control the position of the horizontal scroll bar in the chart area, so I can specify a range of dates to scorll within
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.Columns.Add "Task"
With .Chart
.LevelCount = 2
.PaneWidth(0) = 56
.ScrollRange(0) = #1/1/2001#
.ScrollRange(1) = #1/31/2001#
.FirstVisibleDate = #1/12/2001#
End With
.ScrollPartCaption(2,512) = .Chart.ScrollRange(0)
.ScrollPartCaptionAlignment(2,512) = 0
.ScrollPartCaption(2,128) = .Chart.ScrollRange(1)
.ScrollPartCaptionAlignment(2,128) = 2
With .Items
h = .AddItem("Task 1")
.AddBar h,"Task",#1/15/2001#,#1/18/2001#,"K1"
h = .AddItem("Task 1")
.AddBar h,"Task",#1/5/2001#,#1/11/2001#,"K1"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
748
|
How can I programmatically control the position of the "splitter" between the item list on the left side and the gantt chart on the right
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.Chart.PaneWidth(True) = 196
End With
End Function
</SCRIPT>
</BODY>
|
747
|
How can I add a milestone bar and some text in the chart area
![](images/exg2anttq747.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.Columns.Add "Task"
.Chart.FirstVisibleDate = #1/1/2001#
With .Items
h = .AddItem("Task 1")
.AddBar h,"Milestone",#1/2/2001#,#1/2/2001#,,"<a1>text</a> outside"
.ItemBar(h,,4) = 18
End With
End With
End Function
</SCRIPT>
</BODY>
|
746
|
How can I display or align the bar's caption or text outside of the bar
![](images/exg2anttq746.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.Columns.Add "Task"
.Chart.FirstVisibleDate = #1/1/2001#
.DefaultItemHeight = 32
With .Items
h = .AddItem("Task 1")
.AddBar h,"Task",#1/3/2001#,#1/5/2001#,"K1"
.ItemBar(h,"K1",3) = "<b>to do</b>"
.ItemBar(h,"K1",4) = 18
.ItemBar(h,"K1",5) = 16
End With
End With
End Function
</SCRIPT>
</BODY>
|
745
|
How can I display or align the bar's caption or text outside of the bar
![](images/exg2anttq745.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.Columns.Add "Task"
.Chart.FirstVisibleDate = #1/1/2001#
With .Items
h = .AddItem("Task 1")
.AddBar h,"Task",#1/4/2001#,#1/6/2001#,"K1"
.ItemBar(h,"K1",3) = "to do"
.ItemBar(h,"K1",4) = 16
End With
End With
End Function
</SCRIPT>
</BODY>
|
744
|
How can I display or align the bar's caption or text outside of the bar
![](images/exg2anttq744.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.Columns.Add "Task"
.Chart.FirstVisibleDate = #1/1/2001#
With .Items
h = .AddItem("Task 1")
.AddBar h,"Task",#1/2/2001#,#1/6/2001#,"K1"
.ItemBar(h,"K1",3) = "to do "
.ItemBar(h,"K1",4) = 18
End With
End With
End Function
</SCRIPT>
</BODY>
|
743
|
Is there any option to keep the working days being constant while user moves the bar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.Chart.FirstVisibleDate = #1/1/2002#
.Chart.Bars.Add("Task:Split").Shortcut = "Task"
.Columns.Add "Task"
With .Items
h = .AddItem("Task 1")
.AddBar h,"Task",#1/2/2002#,#1/4/2002#,"A"
.ItemBar(h,"A",20) = True
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
742
|
Is there any option to count or to specify the working days
![](images/exg2anttq742.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.Chart.FirstVisibleDate = #1/1/2002#
.Columns.Add "Task"
.Chart.Bars.Add("Task:Split").Shortcut = "S"
.Chart.PaneWidth(0) = 48
With .Items
h = .AddItem("Task 1")
.AddBar h,"S",#1/3/2002#,#1/4/2002#,"A"
.ItemBar(h,"A",258) = 4
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
741
|
How do I select the next row/item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.Columns.Add "Column"
With .Items
.AddItem "Item 1"
.AddItem "Item 2"
.AddItem "Item 3"
.SelectItem(.NextVisibleItem(.FocusItem)) = True
End With
End With
End Function
</SCRIPT>
</BODY>
|
740
|
How do I get the selected bars or links
![](images/exg2anttq740.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.Chart.AllowSelectObjects = 1
.Chart.FirstVisibleDate = #1/1/2002#
.Columns.Add "Task"
With .Items
h = .AddItem("Task 1")
.AddBar h,"Task",#1/2/2002#,#1/4/2002#,"A"
.AddBar h,"Task",#1/6/2002#,#1/10/2002#,"B"
.ItemBar(h,"A",257) = True
End With
.EndUpdate
alert( "Bars" )
alert( .Items.SelectedObjects(1) )
alert( "Links" )
alert( .Items.SelectedObjects(2) )
End With
End Function
</SCRIPT>
</BODY>
|
739
|
How can I allow a single link being selected in the chart
![](images/exg2anttq739.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.Chart.AllowSelectObjects = 18 ' SelectObjectsEnum.exSelectSingleObject Or SelectObjectsEnum.exSelectLinksOnly
.Chart.FirstVisibleDate = #1/1/2002#
.Columns.Add "Task"
With .Items
h1 = .AddItem("Task 1")
.AddBar h1,"Task",#1/2/2002#,#1/4/2002#,"A"
h2 = .AddItem("Task 2")
.AddBar h2,"Task",#1/6/2002#,#1/10/2002#,"B"
.AddLink "AB",h1,"A",h2,"B"
.AddLink "BA",h2,"B",h1,"A"
.Link("AB",257) = True
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
738
|
How can I allow a single bar being selected in the chart
![](images/exg2anttq738.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.Chart.AllowSelectObjects = 17 ' SelectObjectsEnum.exSelectSingleObject Or SelectObjectsEnum.exSelectBarsOnly
.Chart.FirstVisibleDate = #1/1/2002#
.Columns.Add "Task"
With .Items
h = .AddItem("Task 1")
.AddBar h,"Task",#1/2/2002#,#1/4/2002#,"A"
.AddBar h,"Task",#1/6/2002#,#1/10/2002#,"B"
.ItemBar(h,"A",257) = True
.AddLink "AB",h,"A",h,"B"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
737
|
How do I define the visual appearance of the bar by using your EBN/skin files
![](images/exg2anttq737.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.Chart.Bars.Copy("Task","EBN").Color = &H1000000
.Chart.FirstVisibleDate = #1/1/2001#
.Columns.Add "Column"
With .Items
.AddBar .AddItem("Item 1"),"EBN",#1/2/2001#,#1/4/2001#
.AddBar .AddItem("Item 2"),"Task",#1/2/2001#,#1/4/2001#
End With
End With
End Function
</SCRIPT>
</BODY>
|
736
|
Is it possible to have an "empty box" pattern for the bars
![](images/exg2anttq736.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.Chart.Bars.Copy("Task","Box").Pattern = 32
.Chart.FirstVisibleDate = #1/1/2001#
.Columns.Add "Column"
With .Items
.AddBar .AddItem("Item 1"),"Box",#1/2/2001#,#1/4/2001#
.AddBar .AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#
End With
End With
End Function
</SCRIPT>
</BODY>
|
735
|
How do I enable resizing ( changing the height ) the items at runtime
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.ItemsAllowSizing = -1
.DrawGridLines = 1
.ScrollBySingleLine = True
.Columns.Add "Column"
.Items.AddItem "Item 1"
With .Items
.ItemHeight(.AddItem("Item 2")) = 48
End With
.Items.AddItem "Item 3"
End With
End Function
</SCRIPT>
</BODY>
|
734
|
How do I enable resizing all the items at runtime
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.ItemsAllowSizing = 1
.DrawGridLines = 1
.Columns.Add "Column"
.Items.AddItem "Item 1"
With .Items
.ItemHeight(.AddItem("Item 2")) = 48
End With
.Items.AddItem "Item 3"
End With
End Function
</SCRIPT>
</BODY>
|
733
|
How can I use your EBN files in the histogram
![](images/exg2anttq733.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
With .Chart
.FirstVisibleDate = #1/1/2001#
.HistogramVisible = True
.HistogramHeight = 32
With .Bars.Item("Task")
.HistogramPattern = 0
.HistogramColor = &H1000000
End With
End With
.Columns.Add "Column"
With .Items
.AddBar .AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#
.AddBar .AddItem("Item 1"),"Task",#1/3/2001#,#1/7/2001#
End With
End With
End Function
</SCRIPT>
</BODY>
|
732
|
How can I draw only the shape of the bars in the histogram
![](images/exg2anttq732.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
With .Chart
.FirstVisibleDate = #1/1/2001#
.HistogramVisible = True
.HistogramHeight = 32
With .Bars.Item("Task")
.HistogramPattern = 512
.HistogramColor = RGB(255,0,0)
End With
End With
.Columns.Add "Column"
With .Items
.AddBar .AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#
.AddBar .AddItem("Item 1"),"Task",#1/3/2001#,#1/7/2001#
End With
End With
End Function
</SCRIPT>
</BODY>
|
731
|
How can I draw only the shape of the bars in the histogram
![](images/exg2anttq731.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
With .Chart
.FirstVisibleDate = #1/1/2001#
.HistogramVisible = True
.HistogramHeight = 32
With .Bars.Item("Task")
.HistogramPattern = 256 ' &H100
.HistogramColor = RGB(255,0,0)
End With
End With
.Columns.Add "Column"
With .Items
.AddBar .AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#
.AddBar .AddItem("Item 1"),"Task",#1/3/2001#,#1/7/2001#
End With
End With
End Function
</SCRIPT>
</BODY>
|
730
|
How can I change the color of bars in the histogram
![](images/exg2anttq730.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
With .Chart
.FirstVisibleDate = #1/1/2001#
.HistogramVisible = True
.HistogramHeight = 32
With .Bars.Item("Task")
.HistogramPattern = 6
.HistogramColor = RGB(255,0,0)
End With
End With
.Columns.Add "Column"
With .Items
.AddBar .AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#
.AddBar .AddItem("Item 1"),"Task",#1/3/2001#,#1/7/2001#
End With
End With
End Function
</SCRIPT>
</BODY>
|
729
|
How can I show my bars in the histogram
![](images/exg2anttq729.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
With .Chart
.FirstVisibleDate = #1/1/2001#
.HistogramVisible = True
.HistogramHeight = 32
.Bars.Item("Task").HistogramPattern = 6
End With
.Columns.Add "Column"
With .Items
.AddBar .AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#
.AddBar .AddItem("Item 1"),"Task",#1/3/2001#,#1/7/2001#
End With
End With
End Function
</SCRIPT>
</BODY>
|
728
|
I'm trying to use the percentage display in my gantt's bars. Unfortunately, I don't see any percentage on the gantt chart
![](images/exg2anttq728.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.Columns.Add "Task"
.Chart.FirstVisibleDate = #1/1/2001#
With .Chart.Bars.Copy("Task","BarName")
.Color = RGB(255,0,0)
.Pattern = 6
End With
.Chart.Bars.Add("BarName%Progress").Shortcut = "Percent"
With .Items
h = .AddItem("Task 1")
.AddBar h,"Percent",#1/2/2001#,#1/6/2001#,"K1"
.ItemBar(h,"K1",12) = 0.4
.ItemBar(h,"K1",14) = True
End With
End With
End Function
</SCRIPT>
</BODY>
|
727
|
How can I show the histogram
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.Chart.LevelCount = 2
.Chart.Level(0).Label = 0
With .Chart.Level(1)
.Label = "<%mr%>"
.Unit = 16
End With
.Chart.HistogramVisible = True
End With
End Function
</SCRIPT>
</BODY>
|
726
|
How I can show Months in Time Unit panel into Roman numerals
![](images/exg2anttq726.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.Chart.LevelCount = 2
.Chart.Level(0).Label = 0
With .Chart.Level(1)
.Label = "<%mr%>"
.Unit = 16
End With
End With
End Function
</SCRIPT>
</BODY>
|
725
|
Can I show a bar with a different vertical position
![](images/exg2anttq725.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.Columns.Add "Task"
.Chart.FirstVisibleDate = #1/1/2001#
With .Items
h = .AddItem("Opaque")
.AddBar h,"Task",#1/2/2001#,#1/6/2001#,"K1"
h = .AddItem("Transparent and Opaque")
.AddBar h,"Task",#1/2/2001#,#1/6/2001#,"K1"
.ItemBar(h,"K1",18) = "-3"
.ItemBar(h,"K1",19) = 80
.AddBar h,"Task",#1/3/2001#,#1/7/2001#,"K2"
End With
End With
End Function
</SCRIPT>
</BODY>
|
724
|
How can I show transparent and opaque bars in the same chart
![](images/exg2anttq724.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.Columns.Add "Task"
.Chart.FirstVisibleDate = #1/1/2001#
With .Items
h = .AddItem("Opaque")
.AddBar h,"Task",#1/2/2001#,#1/6/2001#,"K1"
h = .AddItem("Transparent and Opaque")
.AddBar h,"Task",#1/2/2001#,#1/6/2001#,"K1"
.ItemBar(h,"K1",18) = "-3"
.ItemBar(h,"K1",19) = 80
.AddBar h,"Task",#1/3/2001#,#1/7/2001#,"K2"
End With
End With
End Function
</SCRIPT>
</BODY>
|
723
|
How can I draw bars using transparent colors
![](images/exg2anttq723.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.Chart.ShowTransparentBars = 60
.Chart.FirstVisibleDate = #1/1/2001#
.Chart.Bars.Copy("Task","TaskR").Color = RGB(255,0,0)
.Chart.PaneWidth(0) = 48
.Columns.Add "Column"
With .Items
h = .AddItem("Item 1")
.AddBar h,"Task",#1/2/2001#,#1/5/2001#,"A"
.AddBar h,"TaskR",#1/4/2001#,#1/7/2001#,"B"
End With
End With
End Function
</SCRIPT>
</BODY>
|
722
|
How do I select bars and links in the chart area, by dragging
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.Chart.AllowSelectObjects = 3
.Chart.FirstVisibleDate = #1/1/2002#
.Columns.Add "Task"
With .Items
h1 = .AddItem("Task 1")
.AddBar h1,"Task",#1/2/2002#,#1/4/2002#,"A"
h2 = .AddItem("Task 2")
.AddBar h2,"Task",#1/6/2002#,#1/10/2002#,"B"
.AddLink "AB",h1,"A",h2,"B"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
721
|
How do I remove, delete the objects like bars and links selected in the chart area
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.Chart.AllowSelectObjects = 3
.Chart.FirstVisibleDate = #1/1/2002#
.Columns.Add "Task"
With .Items
h1 = .AddItem("Task 1")
.AddBar h1,"Task",#1/2/2002#,#1/4/2002#,"A"
.ItemBar(h1,"A",257) = True
h2 = .AddItem("Task 2")
.AddBar h2,"Task",#1/6/2002#,#1/10/2002#,"B"
.AddLink "AB",h1,"A",h2,"B"
End With
.EndUpdate
.Chart.RemoveSelection
End With
End Function
</SCRIPT>
</BODY>
|
720
|
How do I select links and bars in the chart area
![](images/exg2anttq720.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.Chart.AllowSelectObjects = 3
.Chart.FirstVisibleDate = #1/1/2002#
.Columns.Add "Task"
With .Items
h1 = .AddItem("Task 1")
.AddBar h1,"Task",#1/2/2002#,#1/4/2002#,"A"
.ItemBar(h1,"A",257) = True
h2 = .AddItem("Task 2")
.AddBar h2,"Task",#1/6/2002#,#1/10/2002#,"B"
.ItemBar(h2,"B",257) = True
.AddLink "AB",h1,"A",h2,"B"
.Link("AB",257) = True
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
719
|
How do I select links in the chart area
![](images/exg2anttq719.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.Chart.AllowSelectObjects = 2
.Chart.FirstVisibleDate = #1/1/2002#
.Columns.Add "Task"
With .Items
h1 = .AddItem("Task 1")
.AddBar h1,"Task",#1/2/2002#,#1/4/2002#,"A"
h2 = .AddItem("Task 2")
.AddBar h2,"Task",#1/6/2002#,#1/10/2002#,"B"
.AddLink "AB",h1,"A",h2,"B"
.Link("AB",257) = True
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
718
|
How do I select bars, or tasks in the chart area
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.Chart.AllowSelectObjects = 1
.Chart.FirstVisibleDate = #1/1/2002#
.Columns.Add "Task"
With .Items
h = .AddItem("Task 1")
.AddBar h,"Task",#1/2/2002#,#1/4/2002#,"A"
.AddBar h,"Task",#1/6/2002#,#1/10/2002#,"B"
.ItemBar(h,"A",257) = True
.AddLink "AB",h,"A",h,"B"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
717
|
Can I change the Task bar so it display a Progress or a Percent bar, but it is splitted when the task intersect a non working area
![](images/exg2anttq717.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
With .Chart
.ShowTransparentBars = 60
.FirstVisibleDate = #1/1/2001#
.Bars.Add("Task%Progress:Split").Shortcut = "Task"
.PaneWidth(0) = 48
End With
.Columns.Add "Column"
With .Items
h = .AddItem("Item 1")
.AddBar h,"Task",#1/2/2001#,#1/16/2001#,"K1"
.ItemBar(h,"K1",12) = 0.15
.ItemBar(h,"K1",14) = True
End With
End With
End Function
</SCRIPT>
</BODY>
|
716
|
Can I change the Task bar so it display a Progress or a Percent bar
![](images/exg2anttq716.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
With .Chart
.FirstVisibleDate = #1/1/2001#
.Bars.Add("Task%Progress").Shortcut = "Task"
End With
.Columns.Add "Column"
With .Items
h = .AddItem("Item 1")
.AddBar h,"Task",#1/2/2001#,#1/5/2001#,"K1"
.ItemBar(h,"K1",12) = 0.15
.ItemBar(h,"K1",14) = True
End With
End With
End Function
</SCRIPT>
</BODY>
|
715
|
How can I remove the filter
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
With .Columns.Add("Column")
.DisplayFilterButton = True
.FilterType = 1
End With
.ApplyFilter
.ClearFilter
End With
End Function
</SCRIPT>
</BODY>
|
714
|
I use the ShowEmptyBars property, but I display seconds from 15 to 15, and the bars are not shown correctly. What can I do
![](images/exg2anttq714.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.SelBackColor = RGB(255,0,0)
.BeginUpdate
With .Chart
.AllowCreateBar = 1
.FirstVisibleDate = #1/1/2002#
.LevelCount = 2
.Level(0).Label = 1048576
With .Level(1)
.Label = "<%ss%>"
.Count = 15
End With
.ShowEmptyBars = 15
.ShowEmptyBarsUnit = 16777216
.PaneWidth(0) = 48
End With
.Columns.Add "Task"
With .Items
h = .AddItem("Task 1")
.AddBar h,"Task",#1/1/2002 0:00:15 AM#,#1/1/2002 0:00:15 AM#,"A"
.AddBar h,"Task",#1/1/2002 0:01:15 AM#,#1/1/2002 0:01:30 AM#,"B"
.AddLink "AB",h,"A",h,"B"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
713
|
I need the bar works like in the MS Project, where task from 1/1/2001 to 1/1/2001 must display 1 day
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.Chart.FirstVisibleDate = #1/1/2001#
.Chart.ShowEmptyBars = 1
.Columns.Add "Column"
With .Items
.AddBar .AddItem("Item 1"),"Task",#1/1/2001#,#1/1/2001#
End With
End With
End Function
</SCRIPT>
</BODY>
|
712
|
I have a bar that has the start and end date identical. Nothing is displayed. What can I do
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.Chart.FirstVisibleDate = #1/1/2001#
.Chart.ShowEmptyBars = 1
.Columns.Add "Column"
With .Items
.AddBar .AddItem("Item 1"),"Task",#1/2/2001#,#1/2/2001#
End With
End With
End Function
</SCRIPT>
</BODY>
|
711
|
How can I display seconds and bars for 15 to 15
![](images/exg2anttq711.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.Chart.AllowCreateBar = 1
.Chart.FirstVisibleDate = #1/1/2002#
.Chart.LevelCount = 2
.Chart.ShowEmptyBars = 0
.Chart.Level(0).Label = 1048576
With .Chart.Level(1)
.Label = "<%ss%>"
.Count = 15
End With
.Chart.PaneWidth(0) = 48
.Chart.Bars.Copy("Task","Task2").Color = RGB(255,0,0)
.Columns.Add "Task"
With .Items
h = .AddItem("Task 1")
.AddBar h,"Task",#1/1/2002 0:00:15 AM#,#1/1/2002 0:00:45 AM#,"A"
.AddBar h,"Task2",#1/1/2002 0:01:15 AM#,#1/1/2002 0:01:45 AM#,"B"
.AddLink "AB",h,"A",h,"B"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
710
|
How can I vertically display the column's caption, in the header
![](images/exg2anttq710.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.Columns.Add("A").HeaderVertical = True
.Columns.Add("B").HeaderVertical = True
.Columns.Add("H").HeaderVertical = False
End With
End Function
</SCRIPT>
</BODY>
|
709
|
How can I copy a predefined bar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.Chart.Bars.Copy("Task","T2").Color = RGB(255,0,0)
.Chart.FirstVisibleDate = #1/1/2001#
.Columns.Add "Column"
With .Items
.AddBar .AddItem("Item 1"),"T2",#1/2/2001#,#1/4/2001#
End With
End With
End Function
</SCRIPT>
</BODY>
|
708
|
How can I define my own custom bar, using my icons or pictures
![](images/exg2anttq708.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
With .Chart.Bars
.AddShapeCorner 12345,1
.AddShapeCorner 22345,2
With .Add("T2")
.StartShape = 22345 ' &H5740 Or ShapeCornerEnum.exShapeIconCircleUp1
.EndShape = 12345 ' &H3020 Or ShapeCornerEnum.exShapeIconVBar Or ShapeCornerEnum.exShapeIconRight
.EndColor = RGB(255,0,0)
.Pattern = 2
.Color = RGB(255,0,255)
.Shape = 19
End With
End With
.Chart.FirstVisibleDate = #1/1/2001#
.Columns.Add "Column"
With .Items
.AddBar .AddItem("Item 1"),"T2",#1/2/2001#,#1/4/2001#
End With
End With
End Function
</SCRIPT>
</BODY>
|
707
|
How can I access a predefined bar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.Chart.FirstVisibleDate = #1/1/2001#
.Columns.Add "Column"
With .Items
.AddBar .AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#
End With
.Chart.Bars.Item("Task").Color = RGB(255,0,0)
End With
End Function
</SCRIPT>
</BODY>
|
706
|
How can I access a predefined bar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.Chart.FirstVisibleDate = #1/1/2001#
.Columns.Add "Column"
With .Items
.AddBar .AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#
End With
.Chart.Bars.Item("Task").Color = RGB(255,0,0)
End With
End Function
</SCRIPT>
</BODY>
|
705
|
How can I remove all predefined bars
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.Chart.FirstVisibleDate = #1/1/2001#
.Columns.Add "Column"
With .Items
.AddBar .AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#
End With
End With
End Function
</SCRIPT>
</BODY>
|
704
|
How can I remove a predefined bar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.Chart.FirstVisibleDate = #1/1/2001#
.Columns.Add "Column"
With .Items
.AddBar .AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#
End With
End With
End Function
</SCRIPT>
</BODY>
|
703
|
How do I get the number of predefined bars
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.Columns.Add G2antt1.Chart.Bars.Count
End With
End Function
</SCRIPT>
</BODY>
|
702
|
How can I change the shape of the task bar
![](images/exg2anttq702.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
With .Chart.Bars.Copy("Task","T2")
.EndShape = 2
.EndColor = RGB(255,0,0)
End With
.Chart.FirstVisibleDate = #1/1/2001#
.Columns.Add "Column"
With .Items
.AddBar .AddItem("Item 1"),"T2",#1/2/2001#,#1/4/2001#
.AddBar .AddItem("Item 2"),"Task",#1/2/2001#,#1/4/2001#
End With
End With
End Function
</SCRIPT>
</BODY>
|
701
|
How can I change the ending shape for all task bars
![](images/exg2anttq701.png)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
With .Chart.Bars.Item("Task")
.EndShape = 1
.EndColor = RGB(255,0,0)
End With
.Chart.FirstVisibleDate = #1/1/2001#
.Columns.Add "Column"
With .Items
.AddBar .AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#
End With
End With
End Function
</SCRIPT>
</BODY>
|